perm filename IN3[P11,LCS] blob sn#341665 filedate 1978-03-11 generic text, type T, neo UTF8
PRECEDE; 
SRT←12800;
INS 0 1;<   INSTRUMENT 1  
OSC P4 P5 B2 F1 P30;
OSC B2 P3 B2 F2 P29;
OUT B2 B1;END; <        ALL PARAM NUMS ARE 2 LESS THAN IN BOOK!
GEN 0 1 1 .01 0 .99 25
.99 400  0 511;<GEN INPUT MUST ALWAYS START NEW LINE!
GEN 0 2 2 .7 .5 0 .4 4;<F2 , 3 HARMONICS (1,2,4)
GEN 0 3 3 1 -1;<F3 PUTS LINE FROM 1 TO -1 IN 511 STEPS
INSTRUMENTS;
BUZZ 1 5 FREQ 3;
END;
*
BUZZ   ;          INSTRUMENT 1=BUZZ, BEGIN TIME=0,
P2 RHY/         RHY=NEXT ENTRIES WILL BE IN TERMS OF MUSICAL RHYTHM.
8 X 6/FINE;
P3 A2;
P4 1000;END;
DUM1 INV 0 1 6;
P2 P2;P3 "GEN 0 2";P4 2;P5 NUM/1/.7/.5/.3/.2/.1; P5=1ST HARM.
P6 NUM/0/.5/.3/.2;
P7 NUM/0/.1/.2/.3/.4/.5;P8 RLIST/0 .9/.2 .3/
1 .7/0 0;P8=4TH HARM
P9 NUM/0/0/.5/.1;P10 0;P11 0;P12 .7 0,0  .3 0,1;P13 8;END; 8 HARMS.
RUN;